home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / KeyMenu < prev    next >
Text File  |  2022-08-05  |  2KB  |  53 lines
  1. # Key menu
  2.  
  3. Set Key     # cloverleaf
  4.  
  5. Set OldExit {Exit}
  6. Set Exit 0
  7. DeleteMenu {Key} ≥ Dev:Null
  8. Set Exit {OldExit}
  9.  
  10. Alias OldMPW "∂
  11.     AddMenu {Key} 'Old MPW Mode/3!' CurMPW ;∂
  12.     Set Commands '{OldCommands}' ;∂
  13.     Set AIncludes '{OldMPWPath}AIncludes:' ;∂
  14.     Set Libraries '{OldMPWPath}Libraries:' ;∂
  15.     Set CIncludes '{OldMPWPath}CIncludes:' ;∂
  16.     Set CLibraries '{OldMPWPath}CLibraries:' ;∂
  17.     Set PInterfaces '{OldMPWPath}PInterfaces:' ;∂
  18.     Set PLibraries '{OldMPWPath}PLibraries:' ;∂
  19.     Set RIncludes '{OldMPWPath}RIncludes:'" ;∂
  20.     Flush
  21. Alias CurMPW "∂
  22.     AddMenu {Key} 'Old MPW Mode/3' OldMPW ;∂
  23.     Set Commands '{Commands}' ;∂
  24.     Set AIncludes '{AIncludes}' ;∂
  25.     Set Libraries '{Libraries}' ;∂
  26.     Set CIncludes '{CIncludes}' ;∂
  27.     Set CLibraries '{CLibraries}' ;∂
  28.     Set PInterfaces '{PInterfaces}' ;∂
  29.     Set PLibraries '{PLibraries}' ;∂
  30.     Set RIncludes '{RIncludes}'" ;∂
  31.     Flush
  32.  
  33. AddMenu {Key} 'Old MPW Mode/3' OldMPW
  34. AddMenu {Key} 'Set Dir to Folder' 'DirActive'
  35. AddMenu {Key} '(-' ''
  36. AddMenu {Key} 'Source Menu' 'DeleteMenu Source; SourceMenu'
  37. AddMenu {Key} 'Mark C Routines'  'MarkC "{Active}"' 
  38. AddMenu {Key} 'Mark Pascal'  'MarkPascal "{Active}"'
  39. AddMenu {Key} 'Pasmat §' 'PasMatIt'
  40. AddMenu {Key} (- ''
  41. AddMenu {Key} 'Open UserStartup/U' 'Open "{WorkFolder}UserStartup" ≥Dev:Null || Beep'
  42. AddMenu {Key} 'Close All/∑' 'Close -a -c'
  43. AddMenu {Key} 'Save All/ß' 'Save -a'
  44. AddMenu {Key} 'Trim {Active}/†' '∂
  45.     Mark -y § mark "{Active}" ;∂
  46.     Trim "{Active}" ;∂
  47.     Find mark "{Active}" ;∂
  48.     Unmark mark "{Active}"'
  49. AddMenu {Key} 'Zoom {Active}/ ' 'ZoomWindow "{Active}"'
  50. AddMenu {Key} 'Type Date/∂' 'Echo -n `Date -d -s` >"{Active}.§" && Find §Δ "{Active}"'
  51. AddMenu {Key} 'Eject/E' 'Eject 1 2 ≥Dev:Null'
  52. AddMenu {Key} 'RotateWindows/`' 'RotateWindows'
  53.